home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / ElectricAlias / Aliases / aliases.Tcl < prev    next >
Encoding:
Text File  |  1994-06-18  |  1.7 KB  |  46 lines  |  [TEXT/ALFA]
  1. # FILE: aliases.Tcl
  2. #
  3. # LAST UPDATE: 01/08/93 8:00:35 AM
  4. #
  5. #    Aliases for TCL mode
  6.  
  7.     electricAlias-def •Tcl •Tcl •Tcl
  8.     electricAlias-var Tcl bb "\{"
  9.     electricAlias-var Tcl eb "\}"
  10.     electricAlias-var Tcl bc "#"
  11.     electricAlias-var Tcl ec ""
  12.     electricAlias-var Tcl sep "#############################################################################\r"
  13.     electricAlias-def Tcl § "§\{•\}"
  14.     electricAlias-def •Tcl proc    "§«askalias {procedure name} NAME»proc §{NAME} \{•\} \{\r\t•\r\}\r§{bc}endproc §{NAME}§{ec}\r§{bc}§{sep}§{ec}\r•"
  15.     electricAlias-def •Tcl foreach "foreach \{•\} \{•\} \{\r\t•\r\}\r§{bc}endforeach•"
  16.     electricAlias-def •Tcl for     "for \{•\} \{•\} \{•\} \{\r\t•\r\}\r§{bc}endfor•"
  17.     electricAlias-def •Tcl while   "while \{•\} \{\r\t•\r\}\r§{bc}endwhile•"
  18.     electricAlias-def •Tcl if      "if \{•\} \{\r\t•\r\}•"
  19.     electricAlias-def •Tcl else    "\b\} else \{\r•"
  20.     electricAlias-def •Tcl elseif  "\b\} else \{ if \{•\} \{\r•\r\b\}"
  21.     electricAlias-def •Tcl case    "case \{•\} \{\r  •\r\}\r§{bc}endcase•"
  22.     electricAlias-def •Tcl "{"     "\{•\} \{\r\t•\r\}\r§{bc}endcase •\r•"
  23.     electricAlias-def •Tcl default "default \{\r\t•\r\}•"
  24.  
  25.     # Following are for lazy/forgetful programmer's
  26.     electricAlias-def •Tcl switch  "case \{•\} \{\r\t•\r\}•"
  27.     electricAlias-def Tcl ea "electricAlias"
  28.     electricAlias-def Tcl sprintf "format"
  29.  
  30.     electricAlias-def Tcl \$` "§ \b«•»•"
  31.     electricAlias-def Tcl \${ "§ \b{•}•"
  32.     electricAlias-def Tcl \$? "§ \b«askalias •PROMPT VARNAME»•"
  33.  
  34.     electricAlias-def Tcl "=" "=="
  35.     electricAlias-def Tcl backwordWord backwardWord
  36.  
  37.  
  38.     electricAlias-def "•" "•file" {# FILE: §{file}
  39. #
  40. # LAST UPDATE: §«mtime [now] short»
  41. #}
  42.     electricAlias-def "•" "•procs" {# This file contains the following TCL procedure(s):
  43. #
  44. #    §«askalias "TCL Proc" proc»§{proc} -- 
  45. }
  46.